home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / HANGMAN.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  3.3 KB  |  81 lines
  1. 1000  KEY OFF:CNT%=0:BCNT%=0:CLS:BAD$=STRING$(26,95)  ' t sorber 3/82 HANGMAN
  2. 1010  ALPHA$="abcdefghijklmnopqrstuvwxyz"
  3. 1020  LOCATE 10,1:PRINT STRING$(80,223)
  4. 1030  LOCATE 12,3:PRINT "TYPE THE MYSTERY WORD, THEN PRESS ENTER  ===>  "
  5. 1040  LOCATE 14,1:PRINT STRING$(80,223)
  6. 1050  COLOR 0,0:LOCATE 12,50:INPUT"",WORD$
  7. 1060  COLOR 7,0:IF 0=LEN(WORD$) THEN 1720 ELSE ANS$=WORD$
  8. 1070  FOR X%=1 TO LEN(ANS$)
  9. 1080  IF 0=INSTR(1,ALPHA$,MID$(ANS$,X%,1)) THEN 1720 ELSE NEXT
  10. 1090  CLS:EMPTY$ = LEFT$(BAD$,LEN(WORD$))
  11. 1100  FOR X%=1 TO 22:SOUND 1500-(15*X%),1
  12. 1110  LOCATE X%,1:PRINT CHR$(186):LOCATE X%,40:PRINT CHR$(186)
  13. 1120  LOCATE X%,80:PRINT CHR$(186):NEXT
  14. 1130  LOCATE 1,1:PRINT STRING$(80,205):LOCATE 12,1:PRINT STRING$(39,205)
  15. 1140  LOCATE 22,1:PRINT STRING$(80,205)
  16. 1150  LOCATE 1,1:PRINT CHR$(201):LOCATE 1,80:PRINT CHR$(187)
  17. 1160  LOCATE 22,1:PRINT CHR$(200):LOCATE 22,40:PRINT CHR$(202):LOCATE 22,80
  18. 1170  PRINT CHR$(188):LOCATE 12,1:PRINT CHR$(204):LOCATE 12,40:PRINT CHR$(185)
  19. 1180  LOCATE 6,8:COLOR 0,7:PRINT " "+EMPTY$+" ":COLOR 7,0
  20. 1190  LOCATE 21,50:PRINT STRING$(30,176)
  21. 1200  FOR X%=1 TO 19:LOCATE 22-X%,78:PRINT STRING$(2,176):NEXT
  22. 1210  LOCATE 3,60:PRINT STRING$(20,176)
  23. 1220  FOR X%=3 TO 5:LOCATE X%,62:PRINT CHR$(179):NEXT
  24. 1230  LOCATE 1,30:COLOR 0,7:PRINT" ";:PRINT CHR$(1);:COLOR 0,7:PRINT"  H A N G M A N  ";:PRINT CHR$(2);:COLOR 0,7:PRINT" "
  25. 1240  COLOR 7,0:SOUND 600,1:SOUND 1600,1
  26. 1250  CNT%=CNT%+1
  27. 1260  IN$=INKEY$:IF IN$="" THEN 1260 ELSE IF IN$=" " THEN 1260  'user guesses here
  28. 1270  IF 0=INSTR(1,ALPHA$,IN$) THEN 1260
  29. 1280  PLACE%=INSTR(1,WORD$,IN$):IF 0=PLACE% THEN 1340
  30. 1290   MID$(EMPTY$,PLACE%)=IN$:MID$(WORD$,PLACE%)=" "     'good guess
  31. 1300  LOCATE 6,8:COLOR 0,7:PRINT " "+EMPTY$+" ":COLOR 7,0
  32. 1310  PLAY "mbt255l16mso3cego4cego5cego6c
  33. 1320  PLACE%=INSTR(1,WORD$,IN$):IF 0<>PLACE% THEN 1290
  34. 1330  IF 0=INSTR(1,EMPTY$,"_") THEN 1370 ELSE 1250
  35. 1340  PLACE%=INSTR(1,ALPHA$,IN$):MID$(BAD$,PLACE%)=IN$    'bad guess
  36. 1350  LOCATE 17,8:PRINT BAD$:SOUND 37,10
  37. 1360  BCNT%=BCNT%+1:ON BCNT% GOSUB 1440,1470,1480,1490,1500,1510,1540,1550,1560,1590:GOTO 1250
  38. 1370  COLOR 31:LOCATE 6,8:PRINT " "+EMPTY$+" ":COLOR 7,0    'you won
  39. 1380  IF BCNT% > 1 THEN LOCATE 7,61:PRINT "- ";:PRINT CHR$(147)
  40. 1390  IF BCNT% > 3 THEN LOCATE 9,61:PRINT "`-'"
  41. 1400  LOCATE 15,6:PRINT "YOU WIN! GAME OVER IN "+STR$(CNT%)+" TRIES":LOCATE 23,1
  42. 1410  PLAY"mbt170p8o4c+eeeeeap16abag+f+f+ep16abag+f+f+ep16c+eeeemlap16p8o3aaaaa
  43. 1420  PRINT"            =====> Press  y  to play again, any other key to end ...
  44. 1430  IN$=INKEY$: IF IN$="" THEN 1430 ELSE IF IN$="y" THEN 1000 ELSE 1770
  45. 1440  LOCATE 5,60:PRINT STRING$(5,145):LOCATE 6,58:PRINT STRING$(9,145) 'head
  46. 1450  LOCATE 7,59:PRINT "|     |":LOCATE 8,59:PRINT "|     |"
  47. 1460  LOCATE 9,60:PRINT "\___/" :RETURN
  48. 1470  LOCATE 7,61:PRINT CHR$(147);:PRINT " ";:PRINT CHR$(147):RETURN   'eyes
  49. 1480  LOCATE 8,62:PRINT CHR$(245):RETURN               'nose
  50. 1490  LOCATE 9,62:PRINT CHR$(111):RETURN              'mouth
  51. 1500  LOCATE 10,62:PRINT STRING$(1,186):RETURN          'neck
  52. 1510  LOCATE 11,60:PRINT STRING$(5,176)                 'body
  53. 1520  LOCATE 12,59:PRINT STRING$(7,176):LOCATE 13,59:PRINT STRING$(7,176)
  54. 1530  LOCATE 14,59:PRINT STRING$(7,177):RETURN
  55. 1540  LOCATE 11,52:PRINT ">===";:PRINT STRING$(4,176) :RETURN    'left arm
  56. 1550  LOCATE 11,65:PRINT STRING$(4,176);:PRINT "===<":RETURN    'right arm
  57. 1560  LOCATE 15,59:PRINT STRING$(3,176):LOCATE 16,59:PRINT STRING$(3,176)'lft leg
  58. 1570  LOCATE 17,59:PRINT STRING$(3,176):LOCATE 18,59:PRINT STRING$(3,176)
  59. 1580  LOCATE 19,60:PRINT STRING$(1,154):RETURN
  60. 1590  LOCATE 15,63:PRINT STRING$(3,176):LOCATE 16,63:PRINT STRING$(3,176)'r. leg
  61. 1600  LOCATE 17,63:PRINT STRING$(3,176):LOCATE 18,63:PRINT STRING$(3,176)
  62. 1610  LOCATE 19,64:PRINT STRING$(1,154)
  63. 1620  PLAY "t90l8mbmno0g4 g.g16g4 b-.a16a.g16g.f16mlggg"   'you lost
  64. 1630  LOCATE 7,61:PRINT "x x":LOCATE 9,62:PRINT CHR$(154)
  65. 1640  LOCATE 11,48:PRINT "          ";:PRINT STRING$(9,176);:PRINT "          "
  66. 1650  LOCATE 12,48:PRINT "          ";:PRINT CHR$(186);:PRINT STRING$(7,176);:PRINT CHR$(186)
  67. 1660  LOCATE 13,48:PRINT "          ";:PRINT CHR$(186);:PRINT STRING$(7,176);:PRINT CHR$(186)
  68. 1670  LOCATE 14,48:PRINT "          ";:PRINT CHR$(235);:PRINT STRING$(7,177);:PRINT CHR$(235)
  69. 1680  COLOR 31:LOCATE 6,8:PRINT " "+ANS$+" ":COLOR 7,0
  70. 1690  LOCATE 15,13:PRINT "SORRY.  YOU LOSE":LOCATE 23,1
  71. 1700  PRINT"            =====> Press  y  to play again, any other key to end ...
  72. 1710  IN$=INKEY$: IF IN$="" THEN 1430 ELSE IF IN$="y" THEN 1000 ELSE 1770
  73. 1720  SOUND 65,10:SOUND 37,15:LOCATE 16,3:PRINT"SORRY, BUT YOU'VE ENTERED SOME STRANGE THINGS."
  74. 1730  PRINT"  ONLY LOWER CASE LETTERS ARE ACCEPTABLE."
  75. 1740  COLOR 31:PRINT"  PLEASE PRESS ANY KEY AND TRY AGAIN...":COLOR 7,0
  76. 1750  LOCATE 10,1:PRINT STRING$(80,63):LOCATE 14,1:PRINT STRING$(80,63)
  77. 1760  IA$=INKEY$:IF IA$="" THEN 1760 ELSE 1000
  78. 1770  'end
  79. 1780  COLOR 7,0:CLS
  80. 1790  CHAIN "MENU",1000
  81.